home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.0 / Video Toaster v4.0.iso / arexx / modeler / loadfonts.lwm < prev    next >
Text File  |  1993-12-13  |  816b  |  28 lines
  1. /*  Load multiple PS Fonts into Modeler  CMD: Load Fonts
  2.  *  Edit list below to load selected fonts, add a fname.# entry and change the
  3.  *  value of FontCount to the highest number you want loaded.  This script
  4.  *  is a natural candidate for a startup macro */
  5.  
  6. libadd = addlib("LWModelerARexx.port",0)
  7. call addlib "rexxsupport.library", 0, -30, 0
  8. fname.=""
  9. ftdir = '/ToasterFonts/'
  10.  
  11. FontCount=3  /* How many from this list to load  */
  12. fname.1="B&PGraphics/OlNova-Bold"
  13. fname.2="B&PGraphics/OlNova-BoldIta"
  14. fname.3="B&PGraphics/StopRegular"
  15. fname.4="B&PGraphics/VeraCruz-Regular"
  16. fname.5="FontBankH-M/Jasper"
  17. do i=1 to FontCount
  18.   font=fontload(ftdir||fname.i)
  19.   if font=0 then do
  20.     call notify(1,"!Can't load font "ftdir||fname.i)
  21.     exit
  22.     end
  23.   end
  24.  
  25. if (libadd) then call remlib("LWModelerARexx.port")
  26. exit
  27.  
  28.